(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     17215,        555]
NotebookOptionsPosition[     15300,        484]
NotebookOutlinePosition[     15639,        499]
CellTagsIndexPosition[     15596,        496]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Ge", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      FractionBox[
       RowBox[{"-", "4"}], "3"], ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      FractionBox[
       RowBox[{"-", "4"}], "3"]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5419247183435593`*^9, 3.541924741470894*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["4", "3"]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", 
      FractionBox["4", "3"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.541924742223526*^9, 3.5419264473668203`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gc", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.541924743607542*^9, 3.541924753603402*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.541924754671898*^9, 3.5419264474447193`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"e", "=", "2"}], "\[IndentingNewLine]", 
 RowBox[{"\[Nu]", "=", "0.3"}]}], "Input",
 CellChangeTimes->{{3.541924757413431*^9, 3.541924766625084*^9}}],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.5419247670127077`*^9, 3.541924837247819*^9, 
  3.5419264474669647`*^9}],

Cell[BoxData["0.3`"], "Output",
 CellChangeTimes->{3.5419247670127077`*^9, 3.541924837247819*^9, 
  3.541926447471002*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[DoubleStruckCapitalC]", "=", 
  RowBox[{
   FractionBox["e", 
    RowBox[{"1", "-", 
     SuperscriptBox["\[Nu]", "2"]}]], 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Nu]", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Nu]", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       FractionBox[
        RowBox[{"1", "-", "\[Nu]"}], "2"]}], "}"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.541924769365597*^9, 3.541924799791847*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2.1978021978021975`", ",", "0.6593406593406592`", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.6593406593406592`", ",", "2.1978021978021975`", ",", "0.`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.`", ",", "0.769230769230769`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5419248006251497`*^9, 3.541926447492763*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"w", "=", "0.5"}], "\[IndentingNewLine]", 
 RowBox[{"dJ", "=", "1"}]}], "Input",
 CellChangeTimes->{{3.541924804211788*^9, 3.5419248115569773`*^9}}],

Cell[BoxData["0.5`"], "Output",
 CellChangeTimes->{3.5419248138253508`*^9, 3.5419264475117483`*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.5419248138253508`*^9, 3.541926447515687*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"K\[Xi]\[Xi]", "=", 
   RowBox[{"w", " ", "dJ", " ", 
    RowBox[{
     RowBox[{"Transpose", "[", "Ge", "]"}], ".", "\[DoubleStruckCapitalC]", 
     ".", "Gc"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.541924816818358*^9, 3.5419248626719646`*^9}, {
   3.541924921831306*^9, 3.541924925246674*^9}, 3.541926210640524*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"K\[Xi]\[Xi]", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.5419269202908497`*^9, 3.54192692616755*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.4652014652014649`", "0.`"},
     {"0.`", "0.5128205128205127`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.541926926532177*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Inverse", "[", "K\[Xi]\[Xi]", "]"}], "//", "MatrixForm"}]], "Input",\

 CellChangeTimes->{{3.541924931002183*^9, 3.541924938775588*^9}, {
  3.541926213817534*^9, 3.541926215991425*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.6825000000000001`", "0.`"},
     {"0.`", "1.9500000000000006`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.541924940361679*^9, 3.54192621674087*^9, 
  3.54192644763938*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"B", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", 
      RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "0"}], "}"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.541925830678945*^9, 3.5419258575634623`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "0", ",", "0", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "0"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.541925859361671*^9, 3.541926447658168*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Kd\[Xi]", "=", 
   RowBox[{"w", " ", "dJ", " ", 
    RowBox[{
     RowBox[{"Transpose", "[", "B", "]"}], ".", "\[DoubleStruckCapitalC]", 
     ".", "Gc"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5419258640184803`*^9, 3.541925906683426*^9}, 
   3.5419262064161253`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Kd\[Xi]", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.5419259095035877`*^9, 3.541925915409006*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.0989010989010988`", "0.`"},
     {"0.`", "0.3846153846153845`"},
     {
      RowBox[{"-", "1.0989010989010988`"}], "0.3846153846153845`"},
     {"0.3296703296703296`", 
      RowBox[{"-", "0.3846153846153845`"}]},
     {"0.`", 
      RowBox[{"-", "0.3846153846153845`"}]},
     {
      RowBox[{"-", "0.3296703296703296`"}], "0.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.541925915858967*^9, 3.5419264477369127`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"K\[Xi]d", "=", 
   RowBox[{"w", " ", "dJ", " ", 
    RowBox[{
     RowBox[{"Transpose", "[", "Ge", "]"}], ".", "\[DoubleStruckCapitalC]", 
     ".", "B"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.541926050184162*^9, 3.541926067725698*^9}, 
   3.541926203170336*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"K\[Xi]d", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.54192607014485*^9, 3.54192607508702*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.4652014652014649`", "0.`", 
      RowBox[{"-", "1.4652014652014649`"}], "0.43956043956043944`", "0.`", 
      RowBox[{"-", "0.43956043956043944`"}]},
     {"0.`", "0.5128205128205127`", "0.5128205128205127`", 
      RowBox[{"-", "0.5128205128205127`"}], 
      RowBox[{"-", "0.5128205128205127`"}], "0.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.541926075655437*^9, 3.5419264477766027`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ke", "=", 
   RowBox[{"w", " ", "dJ", " ", 
    RowBox[{
     RowBox[{"Transpose", "[", "B", "]"}], ".", "\[DoubleStruckCapitalC]", 
     ".", "B"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.541926173689641*^9, 3.541926199645767*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ke", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.541926193251555*^9, 3.541926196193523*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.0989010989010988`", "0.`", 
      RowBox[{"-", "1.0989010989010988`"}], "0.3296703296703296`", "0.`", 
      RowBox[{"-", "0.3296703296703296`"}]},
     {"0.`", "0.3846153846153845`", "0.3846153846153845`", 
      RowBox[{"-", "0.3846153846153845`"}], 
      RowBox[{"-", "0.3846153846153845`"}], "0.`"},
     {
      RowBox[{"-", "1.0989010989010988`"}], "0.3846153846153845`", 
      "1.4835164835164834`", 
      RowBox[{"-", "0.7142857142857142`"}], 
      RowBox[{"-", "0.3846153846153845`"}], "0.3296703296703296`"},
     {"0.3296703296703296`", 
      RowBox[{"-", "0.3846153846153845`"}], 
      RowBox[{"-", "0.7142857142857142`"}], "1.4835164835164834`", 
      "0.3846153846153845`", 
      RowBox[{"-", "1.0989010989010988`"}]},
     {"0.`", 
      RowBox[{"-", "0.3846153846153845`"}], 
      RowBox[{"-", "0.3846153846153845`"}], "0.3846153846153845`", 
      "0.3846153846153845`", "0.`"},
     {
      RowBox[{"-", "0.3296703296703296`"}], "0.`", "0.3296703296703296`", 
      RowBox[{"-", "1.0989010989010988`"}], "0.`", "1.0989010989010988`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.541926196678905*^9, 3.5419264478364277`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Kt", "=", 
   RowBox[{"Ke", "-", 
    RowBox[{"Kd\[Xi]", ".", 
     RowBox[{"Inverse", "[", "K\[Xi]\[Xi]", "]"}], ".", "K\[Xi]d"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.541926279894905*^9, 3.5419263072255497`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Kt", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.541926308669342*^9, 3.541926312851*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"2.220446049250313`*^-16", "0.`", 
      RowBox[{"-", "2.220446049250313`*^-16"}], "0.`", "0.`", "0.`"},
     {"0.`", 
      RowBox[{"-", "5.551115123125783`*^-17"}], 
      RowBox[{"-", "5.551115123125783`*^-17"}], "5.551115123125783`*^-17", 
      "5.551115123125783`*^-17", "0.`"},
     {
      RowBox[{"-", "2.220446049250313`*^-16"}], 
      RowBox[{"-", "5.551115123125783`*^-17"}], "2.220446049250313`*^-16", 
      "0.`", "5.551115123125783`*^-17", "0.`"},
     {"0.`", "5.551115123125783`*^-17", "0.`", "0.9999999999999999`", 
      RowBox[{"-", "5.551115123125783`*^-17"}], 
      RowBox[{"-", "0.9999999999999999`"}]},
     {"0.`", "5.551115123125783`*^-17", "5.551115123125783`*^-17", 
      RowBox[{"-", "5.551115123125783`*^-17"}], 
      RowBox[{"-", "5.551115123125783`*^-17"}], "0.`"},
     {"0.`", "0.`", "0.`", 
      RowBox[{"-", "0.9999999999999999`"}], "0.`", "0.9999999999999999`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.541926313440755*^9, 3.5419264478878813`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Inverse", "[", "K\[Xi]\[Xi]", "]"}], ".", "K\[Xi]d"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.541927122466133*^9, 3.541927125135789*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.9999999999999999`", "0.`", 
      RowBox[{"-", "0.9999999999999999`"}], "0.3`", "0.`", 
      RowBox[{"-", "0.3`"}]},
     {"0.`", "1.`", "1.`", 
      RowBox[{"-", "1.`"}], 
      RowBox[{"-", "1.`"}], "0.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.541927125571485*^9}]
}, Open  ]]
},
WindowSize->{830, 599},
WindowMargins->{{Automatic, -984}, {32, Automatic}},
FrontEndVersion->"8.0 for Linux x86 (64-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 424, 14, 54, "Input"],
Cell[1006, 38, 388, 13, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1431, 56, 370, 12, 30, "Input"],
Cell[1804, 70, 338, 11, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2179, 86, 173, 3, 50, "Input"],
Cell[2355, 91, 121, 2, 30, "Output"],
Cell[2479, 95, 122, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2638, 102, 548, 16, 54, "Input"],
Cell[3189, 120, 436, 12, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3662, 137, 172, 3, 50, "Input"],
Cell[3837, 142, 99, 1, 30, "Output"],
Cell[3939, 145, 94, 1, 30, "Output"]
}, Open  ]],
Cell[4048, 149, 356, 8, 30, "Input"],
Cell[CellGroupData[{
Cell[4429, 161, 136, 2, 30, "Input"],
Cell[4568, 165, 667, 18, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5272, 188, 220, 5, 30, "Input"],
Cell[5495, 195, 712, 19, 57, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6244, 219, 545, 16, 30, "Input"],
Cell[6792, 237, 506, 15, 30, "Output"]
}, Open  ]],
Cell[7313, 255, 307, 8, 30, "Input"],
Cell[CellGroupData[{
Cell[7645, 267, 133, 2, 30, "Input"],
Cell[7781, 271, 959, 26, 121, "Output"]
}, Open  ]],
Cell[8755, 300, 303, 8, 30, "Input"],
Cell[CellGroupData[{
Cell[9083, 312, 129, 2, 30, "Input"],
Cell[9215, 316, 933, 22, 57, "Output"]
}, Open  ]],
Cell[10163, 341, 271, 7, 30, "Input"],
Cell[CellGroupData[{
Cell[10459, 352, 126, 2, 30, "Input"],
Cell[10588, 356, 1688, 39, 121, "Output"]
}, Open  ]],
Cell[12291, 398, 258, 7, 30, "Input"],
Cell[CellGroupData[{
Cell[12574, 409, 123, 2, 30, "Input"],
Cell[12700, 413, 1529, 34, 131, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14266, 452, 202, 5, 30, "Input"],
Cell[14471, 459, 813, 22, 57, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

